|
600
|
How can include the values in the inner cells in the drop down filter window
with Gantt1 do
begin
DrawGridLines := EXGANTTLib_TLB.exRowLines;
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Description[EXGANTTLib_TLB.exFilterBarBlanks] := '';
Description[EXGANTTLib_TLB.exFilterBarNonBlanks] := '';
with (IUnknown(Columns.Add('Single Column')) as EXGANTTLib_TLB.Column) do
begin
HTMLCaption := 'Single column with <b>inner cells</b>';
ToolTip := 'Click the drop down filter button, and the filter list includes the inner cells values too.';
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXGANTTLib_TLB.exIncludeInnerCells;
end;
ShowFocusRect := False;
with Items do
begin
s := SplitCell[OleVariant(AddItem('S 1.1')),OleVariant(0)];
CellCaption[Null,OleVariant(s)] := 'S 1.2';
CellHAlignment[Null,OleVariant(s)] := EXGANTTLib_TLB.CenterAlignment;
CellBackColor[Null,OleVariant(s)] := $1000000;
CellWidth[Null,OleVariant(s)] := 84;
s := SplitCell[OleVariant(AddItem('S 2.1')),OleVariant(0)];
CellCaption[Null,OleVariant(s)] := 'S 2.2';
CellHAlignment[Null,OleVariant(s)] := EXGANTTLib_TLB.CenterAlignment;
CellWidth[Null,OleVariant(s)] := 84;
s := SplitCell[OleVariant(AddItem('S 3.1')),OleVariant(0)];
CellCaption[Null,OleVariant(s)] := 'S 3.2';
CellHAlignment[Null,OleVariant(s)] := EXGANTTLib_TLB.CenterAlignment;
CellBackColor[Null,OleVariant(s)] := $1000000;
CellWidth[Null,OleVariant(s)] := 84;
end;
end
|
|
599
|
How can I sort the value gets listed in the drop down filter window
with Gantt1 do
begin
LinesAtRoot := EXGANTTLib_TLB.exLinesAtRoot;
MarkSearchColumn := False;
Description[EXGANTTLib_TLB.exFilterBarAll] := '';
Description[EXGANTTLib_TLB.exFilterBarBlanks] := '';
Description[EXGANTTLib_TLB.exFilterBarNonBlanks] := '';
with (IUnknown(Columns.Add('P1')) as EXGANTTLib_TLB.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXGANTTLib_TLB.exSortItemsDesc;
end;
with (IUnknown(Columns.Add('P2')) as EXGANTTLib_TLB.Column) do
begin
DisplayFilterButton := True;
DisplayFilterPattern := False;
FilterList := EXGANTTLib_TLB.exSortItemsAsc;
end;
with Items do
begin
h := AddItem('Z3');
CellCaption[OleVariant(h),OleVariant(1)] := 'C';
CellCaption[OleVariant(InsertItem(h,Null,'Z1')),OleVariant(1)] := 'B';
CellCaption[OleVariant(InsertItem(h,Null,'Z2')),OleVariant(1)] := 'A';
ExpandItem[h] := True;
end;
end
|
|
598
|
Is there a way to break the hours into 15 minute increments just showing lines instead of the minute numbers
with Gantt1 do
begin
BeginUpdate();
Chart.FirstVisibleDate := '2/5/2008';
Chart.LevelCount := 3;
Chart.Level[0].Label := '<b><%mmm%> <%dd%></b> <%yyyy%> ';
with Chart.Level[1] do
begin
Label := '<%hh%>';
Alignment := EXGANTTLib_TLB.CenterAlignment;
end;
with Chart.Level[2] do
begin
Label := '';
Unit := EXGANTTLib_TLB.exMinute;
Count := 15;
end;
Chart.UnitWidth := 6;
EndUpdate();
end
|
|
597
|
How can I change the visual appearance of the milestone bar using EBN
with Gantt1 do
begin
with VisualAppearance do
begin
Add(1,'gBFLBCJwBAEHhEJAEGg4BKMMQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiF4aRTHUKAAKQahLEaSZLhEZRQiqA4sS5FQBSBDQFwSByEY6mSaYJA' +
'WK4tCyNM7SfQAbxnAgYaLAAYRUjuHZOTZAc4UfAdFL/K4AKrfeZIeAiCRQGiYZyHKaRShjDwXKLIIjbJhkNoJChCNQgBScPgxCx8JypaCaar2fjQM6zWAMdb2Cz7PjDH' +
'7wPA1WYJRaDYjhcB4LheAqGXBWUYLYb8XS3EKJYhiWA4HjqFjGJpcEzPbRiNx3H6SABlLLaLo7JpGO52FrTHZjXyzLqBVpoOyEbrmcozYzjN41RpWETfQYDcwteqcLpr' +
'hGVZrm6dp8j4bAnDQP5Uh+OpcH6R4Lg2YJvEIeg6kWEoJB2ZZyG6GoLCSXxtG+IZ1GmfhJjcawNFWfB/h+V5pnUc5VhWeZ4BMX4jlySwtiAJodlEYRaBYFgHHgIA2gGE' +
'xkFUdxFl6A5hgUbgXgcVRzFiXA3CICARAEgI');
Add(2,'CP:1 -6 0 5 0');
end;
with Chart do
begin
FirstVisibleDate := '1/1/2001';
with Bars.Add('MilestoneEBN') do
begin
Color := $2000000;
Height := 14;
end;
end;
Columns.Add('Tasks');
with Items do
begin
AddBar(AddItem('Milestone'),'Milestone','1/2/2001','1/2/2001 12:00:01 AM',Null,Null);
AddBar(AddItem('Milestone EBN '),'MilestoneEBN','1/2/2001','1/2/2001 12:00:01 AM',Null,Null);
end;
end
|
|
596
|
How can I change the visual appearance of the summary bar using EBN
with Gantt1 do
begin
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BGICg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGDAADEMgyAJCIxjPIgZBoGqPBpASQJUhkMocR7HMygBI' +
'kSRNA8kMwxdQEaw9ECRIDpGaYWTFDhsABTVQRLL0Tw9ISERqoSSaGgkCYaA7CNJ0PBNJSjJ6LJZGURbKqyCQ1DBbUB3BaUaQ9JaKa7pKa7cpWKIqSxEMrxcLFcT5DSbY' +
'DxGjLEhmPZBVZQNBxtJbFQHWJCNgzVAdOAAfzQM70GpMQoWJYeVpEObSBD1dABTCBczADYoex7ID+aJuGiYVZdWxJOjfbhkTTIJAaCawABrWxR8iHN5paTnUpzDjwbg0' +
'kqRRyr+XwjA8Go/HSBp6g6KJTFcGpWmYdg8H6dJTH0EZelueBfBuLwyBMd50nIfR+kmXB4BECQUAaEYMHQHRHCGFRYI2ZAwEIExghQZA2EIQoGGoEhOgGBBYlAeYYHMW' +
'JcDcGx4HYHoHmICIFjeBohkaDAAC2DAjBYJIIiKSI2CSC5hjQJBsCOCwYiIKoGmKWJkn6DANkiWgzCwYwolAcQkksWJaCuDohlicg2hDQR+EELBInKcJohMJBomILoGm' +
'ISQuESFBOgkOQDg+SoTEyfoXCUSImDyGZhjkaI1hcJgTnoXgACYCYKG2GQkEkVJchKIoZDIbIciYKY+HEP4mlmThSg+aBIlKBYUCUKgGHyG4jEkPoKiAKI6D6EokGkSg' +
'yECF5jEKVJZD+aYqHKG4nGoCh+iKJ4qEqBokh+KYag6JoqmqKo2iWJpqgKRJHDiT5qk6NYtCsapmjiLprHqdo6i8awan6QovCwOp6kSLQsBsHpGjKbBbBaMYhm0CgalI' +
'LBtBsUpTiGUIUAQgIA==');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
with Bars.Copy('Task','Summary') do
begin
Color := $1000000;
Height := 16;
end;
end;
Columns.Add('Tasks');
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Task 2'),'Summary','1/5/2001','1/7/2001',Null,Null);
end;
end
|
|
595
|
How can I change the visual appearance of the task bar using EBN
with Gantt1 do
begin
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BGoCg6AADACAxRDAMgBQKAAzQFAYZhhBaERiGEaIJhUAIIRZGMQxXAcMQvDSKQJhGLhQiSJoJDSBEgSXDIZQ5D6OZYACDJQACJYJTbAYzyPJ' +
'kPRAA6EZCmGAwCglf5HABRb7xNLkbQ8GySKJnWCQJhoD5BSLCNRUTRFFQtGgZBpEWwLCjQNQwWLKFoTJIEPSBDKqYDoKYqTgOOZOThHQz3HakQRdAa/ZpnaKpUo2d47X' +
'jMWBwGA0EzeAAGaxoShqdoiFaGU7UOJVJBOGwHK6BchoMAKbp6XoVWRaOAWLZWVABM7XLZxbLccyGfZ1XhdV5UbqUMznR7PNrjLKIJpCOJbbyAFwgBaeQABYLhK7iHRm' +
'i8XYwjMWpjFWOx1GIB5LmgdB4HCEBECSIBpDGHQOicIwokYPImikEIJj6eJIloEgogSc40FGcJEFiYZIG2VIoAURw1g2QxyAQNwNAMPJOgIYI4CoDIBmAeAKBIUpQDUK' +
'JYDoTpIB4vxgmgdgNgeYZDDoFw7CEJhQn+BohmKfImCWSZRlgYwikYMQ0gwF4DniTA/gwBJYjQYwsgoIg6AyCRQDiIJODAZBImoOguAmMZ4lQLIJjOMI3CYZJpEIT4Ki' +
'KSI6DqD5ZGAAgHC2DAjBYR4SGUGYGE+GIlCmFhRhIB5iFAbwWsiJgMhoCoxngV4ZCcSYOHaGYnHmIg8COJpoCoOISmSWZeHWHgoEkRoAg4EIYB4NogmiSgKg6GRjGoJg' +
'Fh+ZJKDaBYjmgaQygiBRUHmbhoDsTAyiqIIoioGoOw8aoKhKKoemeOIaAeF5HmqHoqiyKxKgYaN/locgBiuZRojoVIok8cwsjaMBLGqDoAhGIpoEYWYEmAIxUkQLZmgi' +
'Yg2g2I4JiCQwuAqWIOIkEAQICA==');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
with Bars.Item['Task'] do
begin
Color := $1000000;
Height := 16;
end;
end;
Columns.Add('Tasks');
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Task 2'),'Task','1/5/2001','1/7/2001',Null,Null);
end;
end
|
|
594
|
How can I change the visual appearance of the task bar using EBN
with Gantt1 do
begin
VisualAppearance.Add(1,'gBFLBCJwBAEHhEJAEGg4BZsIQAAYAQGKIYBkAKBQAGaAoDDMMILQiMQwjRBMKgBBCLIxiGK4DhiGoZATCMbDBIcSwSGgCJCjeS4ZDKHIXSxFUKTBAcSQTGyBRokaYZRi' +
'6A4+TRPETTWAEcABHSbQCoKTKAoCHpLQLMYxDKItJSpGYaRgqWCaZpuUIaUzKVbxbK9CSMGiQbIsOJrBqqQozWZHVITLR9VgBNqga7uGR5DoqdovU5dVTVda9Ly5LSsM' +
'QvfALCqOe45URdNp3RiVBYfI6+cZvfJLWh4NqeAbCMC1UJoYhlUKCBg0TRoVo9AIDX5QWaYXC0AkBA==');
with Chart do
begin
FirstVisibleDate := '1/1/2001';
with Bars.Item['Task'] do
begin
Color := $1000000;
Height := 16;
end;
end;
Columns.Add('Tasks');
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Task 2'),'Task','1/5/2001','1/7/2001',Null,Null);
end;
end
|
|
593
|
How can I clip the HTML text or caption inside the bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Chart.Bars.Item['Task'] do
begin
Pattern := EXGANTTLib_TLB.exPatternBox;
Height := 13;
end;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2001','1/6/2001','K1','This is a bit of text that get''s clipped');
ItemBar[h,'K1',EXGANTTLib_TLB.exBarHAlignCaption] := OleVariant(3);
end;
end
|
|
592
|
How can I align the text/caption on the scroll bar
with Gantt1 do
begin
ScrollPartCaption[EXGANTTLib_TLB.exHScroll,EXGANTTLib_TLB.exLowerBackPart] := 'left';
ScrollPartCaptionAlignment[EXGANTTLib_TLB.exHScroll,EXGANTTLib_TLB.exLowerBackPart] := EXGANTTLib_TLB.LeftAlignment;
ScrollPartCaption[EXGANTTLib_TLB.exHScroll,EXGANTTLib_TLB.exUpperBackPart] := 'right';
ScrollPartCaptionAlignment[EXGANTTLib_TLB.exHScroll,EXGANTTLib_TLB.exUpperBackPart] := EXGANTTLib_TLB.RightAlignment;
ColumnAutoResize := False;
Columns.Add(1);
Columns.Add(2);
Columns.Add(3);
Columns.Add(4);
end
|
|
591
|
How do I programmatically control the position of the horizontal scroll bar in the chart area, so I can specify a range of dates to scorll within
with Gantt1 do
begin
BeginUpdate();
Columns.Add('Task');
with Chart do
begin
LevelCount := 2;
PaneWidth[False] := 56;
ScrollRange[EXGANTTLib_TLB.exStartDate] := '1/1/2001';
ScrollRange[EXGANTTLib_TLB.exEndDate] := '1/31/2001';
FirstVisibleDate := '1/12/2001';
end;
ScrollPartCaption[EXGANTTLib_TLB.exHChartScroll,EXGANTTLib_TLB.exLowerBackPart] := Chart.ScrollRange[EXGANTTLib_TLB.exStartDate];
ScrollPartCaptionAlignment[EXGANTTLib_TLB.exHChartScroll,EXGANTTLib_TLB.exLowerBackPart] := EXGANTTLib_TLB.LeftAlignment;
ScrollPartCaption[EXGANTTLib_TLB.exHChartScroll,EXGANTTLib_TLB.exUpperBackPart] := Chart.ScrollRange[EXGANTTLib_TLB.exEndDate];
ScrollPartCaptionAlignment[EXGANTTLib_TLB.exHChartScroll,EXGANTTLib_TLB.exUpperBackPart] := EXGANTTLib_TLB.RightAlignment;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/15/2001','1/18/2001','K1',Null);
h := AddItem('Task 1');
AddBar(h,'Task','1/5/2001','1/11/2001','K1',Null);
end;
EndUpdate();
end
|
|
590
|
How can I programmatically control the position of the "splitter" between the item list on the left side and the gantt chart on the right
with Gantt1 do
begin
Chart.PaneWidth[True] := 196;
end
|
|
589
|
How can I add a milestone bar and some text in the chart area
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Milestone','1/2/2001','1/2/2001',Null,'<a1>text</a> outside');
ItemBar[h,Null,EXGANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
end;
end
|
|
588
|
How can I display or align the bar's caption or text outside of the bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
DefaultItemHeight := 32;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/3/2001','1/5/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarCaption] := '<b>to do</b>';
ItemBar[h,'K1',EXGANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarVAlignCaption] := OleVariant(16);
end;
end
|
|
587
|
How can I display or align the bar's caption or text outside of the bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/4/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarCaption] := 'to do';
ItemBar[h,'K1',EXGANTTLib_TLB.exBarHAlignCaption] := OleVariant(16);
end;
end
|
|
586
|
How can I display or align the bar's caption or text outside of the bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarCaption] := 'to do ';
ItemBar[h,'K1',EXGANTTLib_TLB.exBarHAlignCaption] := OleVariant(18);
end;
end
|
|
585
|
Is there any option to count the non-working days
with Gantt1 do
begin
BeginUpdate();
Chart.FirstVisibleDate := '1/1/2002';
Columns.Add('Task');
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2002','1/4/2002','A',Null);
var_ItemBar := ItemBar[h,'A',EXGANTTLib_TLB.exBarNonWorkingCount];
end;
EndUpdate();
end
|
|
584
|
Is there any option to count or to specify the working days
with Gantt1 do
begin
BeginUpdate();
Chart.FirstVisibleDate := '1/1/2002';
Columns.Add('Task');
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2002','1/4/2002','A',Null);
var_ItemBar := ItemBar[h,'A',EXGANTTLib_TLB.exBarWorkingCount];
end;
EndUpdate();
end
|
|
583
|
How do I select the next row/item
with Gantt1 do
begin
Columns.Add('Column');
with Items do
begin
AddItem('Item 1');
AddItem('Item 2');
AddItem('Item 3');
SelectItem[NextVisibleItem[FocusItem]] := True;
end;
end
|
|
582
|
How do I define the visual appearance of the bar by using your EBN/skin files
with Gantt1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Chart.Bars.Copy('Task','EBN').Color := $1000000;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'EBN','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
581
|
Is it possible to have an "empty box" pattern for the bars
with Gantt1 do
begin
Chart.Bars.Copy('Task','Box').Pattern := EXGANTTLib_TLB.exPatternBox;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Box','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
580
|
How do I enable resizing ( changing the height ) the items at runtime
with Gantt1 do
begin
ItemsAllowSizing := EXGANTTLib_TLB.exResizeItem;
DrawGridLines := EXGANTTLib_TLB.exHLines;
ScrollBySingleLine := True;
Columns.Add('Column');
Items.AddItem('Item 1');
with Items do
begin
ItemHeight[AddItem('Item 2')] := 48;
end;
Items.AddItem('Item 3');
end
|
|
579
|
How do I enable resizing all the items at runtime
with Gantt1 do
begin
ItemsAllowSizing := EXGANTTLib_TLB.exResizeAllItems;
DrawGridLines := EXGANTTLib_TLB.exHLines;
Columns.Add('Column');
Items.AddItem('Item 1');
with Items do
begin
ItemHeight[AddItem('Item 2')] := 48;
end;
Items.AddItem('Item 3');
end
|
|
578
|
I'm trying to use the percentage display in my gantt's bars. Unfortunately, I don't see any percentage on the gantt chart
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Chart.Bars.Copy('Task','BarName') do
begin
Color := $ff;
Pattern := EXGANTTLib_TLB.exPatternBDiagonal;
end;
Chart.Bars.Add('BarName%Progress').Shortcut := 'Percent';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.4);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
end;
end
|
|
577
|
How I can show Months in Time Unit panel into Roman numerals
with Gantt1 do
begin
Chart.LevelCount := 2;
Chart.Level[0].Label := OleVariant(0);
with Chart.Level[1] do
begin
Label := '<%mr%>';
Unit := EXGANTTLib_TLB.exMonth;
end;
end
|
|
576
|
Can I show a bar with a different vertical position
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Opaque');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
h := AddItem('Transparent and Opaque');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarOffset] := '-3';
ItemBar[h,'K1',EXGANTTLib_TLB.exBarTransparent] := OleVariant(80);
AddBar(h,'Task','1/3/2001','1/7/2001','K2',Null);
end;
end
|
|
575
|
How can I show transparent and opaque bars in the same chart
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Opaque');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
h := AddItem('Transparent and Opaque');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarOffset] := '-3';
ItemBar[h,'K1',EXGANTTLib_TLB.exBarTransparent] := OleVariant(80);
AddBar(h,'Task','1/3/2001','1/7/2001','K2',Null);
end;
end
|
|
574
|
How can I draw bars using transparent colors
with Gantt1 do
begin
Chart.ShowTransparentBars := 60;
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Copy('Task','TaskR').Color := $ff;
Chart.PaneWidth[False] := 48;
Columns.Add('Column');
with Items do
begin
h := AddItem('Item 1');
AddBar(h,'Task','1/2/2001','1/5/2001','A',Null);
AddBar(h,'TaskR','1/4/2001','1/7/2001','B',Null);
end;
end
|
|
573
|
Can I change the Task bar so it display a Progress or a Percent bar, but it is splitted when the task intersect a non working area
with Gantt1 do
begin
with Chart do
begin
FirstVisibleDate := '1/1/2001';
Bars.Add('Task%Progress:Split').Shortcut := 'Task';
end;
Columns.Add('Column');
with Items do
begin
h := AddItem('Item 1');
AddBar(h,'Task','1/2/2001','1/16/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.15);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
end;
end
|
|
572
|
Can I change the Task bar so it display a Progress or a Percent bar
with Gantt1 do
begin
with Chart do
begin
FirstVisibleDate := '1/1/2001';
Bars.Add('Task%Progress').Shortcut := 'Task';
end;
Columns.Add('Column');
with Items do
begin
h := AddItem('Item 1');
AddBar(h,'Task','1/2/2001','1/5/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.15);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
end;
end
|
|
571
|
How can I remove the filter
with Gantt1 do
begin
with (IUnknown(Columns.Add('Column')) as EXGANTTLib_TLB.Column) do
begin
DisplayFilterButton := True;
FilterType := EXGANTTLib_TLB.exBlanks;
end;
ApplyFilter();
ClearFilter();
end
|
|
570
|
I use the ShowEmptyBars property, but I display seconds from 15 to 15, and the bars are not shown correctly. What can I do
with Gantt1 do
begin
BeginUpdate();
with Chart do
begin
FirstVisibleDate := '1/1/2002';
LevelCount := 2;
Level[0].Label := OleVariant(1048576);
with Level[1] do
begin
Label := '<%ss%>';
Count := 15;
end;
ShowEmptyBars := 15;
ShowEmptyBarsUnit := EXGANTTLib_TLB.exSecond;
PaneWidth[False] := 48;
end;
Columns.Add('Task');
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/1/2002 12:00:15 AM','1/1/2002 12:00:15 AM','A',Null);
AddBar(h,'Task','1/1/2002 12:01:15 AM','1/1/2002 12:01:30 AM','B',Null);
AddLink('AB',h,'A',h,'B');
end;
EndUpdate();
end
|
|
569
|
I need the bar works like in the MS Project, where task from 1/1/2001 to 1/1/2001 must display 1 day
with Gantt1 do
begin
Chart.FirstVisibleDate := '1/1/2001';
Chart.ShowEmptyBars := 1;
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/1/2001','1/1/2001',Null,Null);
end;
end
|
|
568
|
I have a bar that has the start and end date identical. Nothing is displayed. What can I do
with Gantt1 do
begin
Chart.FirstVisibleDate := '1/1/2001';
Chart.ShowEmptyBars := 1;
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/2/2001',Null,Null);
end;
end
|
|
567
|
How can I display seconds and bars for 15 to 15
with Gantt1 do
begin
BeginUpdate();
Chart.FirstVisibleDate := '1/1/2002 00:00';
Chart.LevelCount := 2;
Chart.Level[0].Label := OleVariant(1048576);
with Chart.Level[1] do
begin
Label := '<%ss%>';
Count := 15;
end;
Chart.PaneWidth[False] := 48;
Chart.Bars.Copy('Task','Task2').Color := $ff;
Columns.Add('Task');
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/1/2002 00:00:15','1/1/2002 00:00:45','A',Null);
AddBar(h,'Task2','1/1/2002 00:01:15','1/1/2002 00:01:45','B',Null);
AddLink('AB',h,'A',h,'B');
end;
EndUpdate();
end
|
|
566
|
How can I copy a predefined bar
with Gantt1 do
begin
Chart.Bars.Copy('Task','T2').Color := $ff;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
565
|
How can I define my own custom bar, using my icons or pictures
with Gantt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
with Chart.Bars do
begin
AddShapeCorner(OleVariant(12345),OleVariant(1));
AddShapeCorner(OleVariant(22345),OleVariant(2));
with Add('T2') do
begin
StartShape := EXGANTTLib_TLB.ShapeCornerEnum($5740 Or Integer(EXGANTTLib_TLB.exShapeIconCircleUp1));
EndShape := EXGANTTLib_TLB.ShapeCornerEnum($3020 Or Integer(EXGANTTLib_TLB.exShapeIconVBar) Or Integer(EXGANTTLib_TLB.exShapeIconRight));
EndColor := $ff;
Pattern := EXGANTTLib_TLB.exPatternDot;
Color := $ff00ff;
Shape := EXGANTTLib_TLB.exShapeThinCenter;
end;
end;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
564
|
How can I access a predefined bar
with Gantt1 do
begin
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
Chart.Bars.Item['Task'].Color := $ff;
end
|
|
563
|
How can I access a predefined bar
with Gantt1 do
begin
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
Chart.Bars.Item['Task'].Color := $ff;
end
|
|
562
|
How can I remove all predefined bars
with Gantt1 do
begin
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
561
|
How can I remove a predefined bar
with Gantt1 do
begin
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
560
|
How do I get the number of predefined bars
with Gantt1 do
begin
Columns.Add(Gantt1.Chart.Bars.Count);
end
|
|
559
|
How can I change the height of the task bar
with Gantt1 do
begin
with Chart.Bars.Copy('Task','T2') do
begin
Height := 24;
EndShape := EXGANTTLib_TLB.exShapeIconDown1;
EndColor := $ff;
end;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
h := AddItem('Item 1');
ItemHeight[h] := 28;
AddBar(h,'T2','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
558
|
How can I change the ending shape for all task bars
with Gantt1 do
begin
with Chart.Bars.Item['Task'] do
begin
EndShape := EXGANTTLib_TLB.exShapeIconUp1;
EndColor := $ff;
end;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
557
|
How can I change the height of the task bar
with Gantt1 do
begin
DefaultItemHeight := 28;
Chart.Bars.Item['Task'].Height := 24;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
556
|
How can I change the starting shape for all task bars
with Gantt1 do
begin
with Chart.Bars.Item['Task'] do
begin
StartShape := EXGANTTLib_TLB.exShapeIconUp1;
StartColor := $ff;
end;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
555
|
How can I change the height of the task bar
with Gantt1 do
begin
Chart.Bars.Copy('Task','T2').Height := 17;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
554
|
How can I change the height for all task bars
with Gantt1 do
begin
Chart.Bars.Item['Task'].Height := 17;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
553
|
How can I change the color of the task bar
with Gantt1 do
begin
Chart.Bars.Copy('Task','T2').Color := $ff;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
552
|
How can I change the color for all task bars
with Gantt1 do
begin
Chart.Bars.Item['Task'].Color := $ff;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
551
|
How can I change the shape for all task bars
with Gantt1 do
begin
Chart.Bars.Item['Task'].Shape := EXGANTTLib_TLB.exShapeSolidDown;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
550
|
How can I change the shape of the task bar
with Gantt1 do
begin
Chart.Bars.Copy('Task','T2').Shape := EXGANTTLib_TLB.exShapeThinCenter;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
549
|
How can I change the pattern or style for all task bars
with Gantt1 do
begin
Chart.Bars.Item['Task'].Pattern := EXGANTTLib_TLB.exPatternFDiagonal;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
548
|
How can I change the pattern of the task bar
with Gantt1 do
begin
Chart.Bars.Copy('Task','T2').Pattern := EXGANTTLib_TLB.exPatternFDiagonal;
Chart.FirstVisibleDate := '1/1/2001';
Columns.Add('Column');
with Items do
begin
AddBar(AddItem('Item 1'),'T2','1/2/2001','1/4/2001',Null,Null);
AddBar(AddItem('Item 2'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
547
|
How can I add a percent bar in the chart area, so the task bar is splited for non working days or hours
with Gantt1 do
begin
Columns.Add('Task');
Chart.Bars.Add('Task%Progress:Split').Shortcut := 'TS';
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'TS','1/2/2001','1/16/2001','P1',Null);
ItemBar[h,'P1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.14);
ItemBar[h,'P1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
end;
end
|
|
546
|
How can I add a bar in the chart area, so the task bar is splited for non working days or hours
with Gantt1 do
begin
Columns.Add('Task');
Chart.Bars.Add('Task:Split').Shortcut := 'TS';
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'TS','1/2/2001','1/16/2001',Null,Null);
end;
end
|
|
545
|
How can I add a split bar in the chart area
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Split','1/2/2001','1/6/2001',Null,Null);
end;
end
|
|
544
|
How can I add a progress bar in the chart area
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Progress','1/2/2001','1/6/2001',Null,Null);
end;
end
|
|
543
|
How can I add a milestone bar in the chart area
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Milestone','1/2/2001','1/2/2001',Null,Null);
end;
end
|
|
542
|
How can I add a summary bar in the chart area
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Summary','1/2/2001','1/6/2001',Null,Null);
end;
end
|
|
541
|
How can I add a project summary bar in the chart area
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Project Summary','1/2/2001','1/6/2001',Null,Null);
end;
end
|
|
540
|
How can I add a deadline bar in the chart area
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Deadline','1/2/2001','1/2/2001',Null,Null);
end;
end
|
|
539
|
How can I add a task bar in the chart area
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
AddBar(AddItem('Task 1'),'Task','1/2/2001','1/4/2001',Null,Null);
end;
end
|
|
538
|
How can I assign a picture or an icon to a bar in the chart
with Gantt1 do
begin
HTMLPicture['p1'] := 'c:\exontrol\images\zipdisk.gif';
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
ItemHeight[h] := 48;
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarCaption] := '<img>p1</img>';
ItemBar[h,'K1',EXGANTTLib_TLB.exBarHAlignCaption] := OleVariant(2);
end;
end
|
|
537
|
How can I assign a picture or an icon to a bar in the chart
with Gantt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarCaption] := '<img>1</img>';
end;
end
|
|
536
|
How can I display or add an anchor or a hyperlink in the link
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Null);
AddItem('');
AddItem('');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkText] := 'just <a1>link</a>';
end;
end
|
|
535
|
How can I display a picture or an icon on the link
with Gantt1 do
begin
Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' +
'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' +
'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' +
'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Null);
AddItem('');
AddItem('');
AddItem('');
AddItem('');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkText] := 'just <img>1</img> link';
end;
end
|
|
534
|
How can I display a picture or an icon on the link
with Gantt1 do
begin
HTMLPicture['pic1'] := 'c:\exontrol\images\zipdisk.gif';
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Null);
AddItem('');
AddItem('');
AddItem('');
AddItem('');
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkText] := '<img>pic1</img><br><br>just a link';
end;
end
|
|
533
|
How can I display some HTML text or caption on link
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkText] := 'L<b>1</b>';
end;
end
|
|
532
|
How can I assign a tooltip to a link
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkText] := 'L<b>1</b>';
Link['L1',EXGANTTLib_TLB.exLinkToolTip] := 'This is a bit of text that''s shown when the cursor hovers the link';
end;
end
|
|
531
|
Can I change the width or the size of the link
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkStyle] := OleVariant(0);
Link['L1',EXGANTTLib_TLB.exLinkWidth] := OleVariant(2);
end;
end
|
|
530
|
Can I change the style of the link
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkStyle] := OleVariant(4);
end;
end
|
|
529
|
Can I change the color of the link
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkColor] := OleVariant(255);
end;
end
|
|
528
|
Can I change the part of the bar where the link ends
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkStartPos] := OleVariant(1);
Link['L1',EXGANTTLib_TLB.exLinkEndPos] := OleVariant(1);
end;
end
|
|
527
|
Can I change the part of the bar where the link starts
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkStartPos] := OleVariant(0);
end;
end
|
|
526
|
How can I associate an extra data to a link
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkUserData] := 'your data';
end;
end
|
|
525
|
How can I show or hide a specified link
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkEndBar] := OleVariant(False);
end;
end
|
|
524
|
How can I get the key of the bar where the link end
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
AddItem(Link['L1',EXGANTTLib_TLB.exLinkEndBar]);
end;
end
|
|
523
|
How can I get the key of the bar where the link starts
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
AddItem(Link['L1',EXGANTTLib_TLB.exLinkStartBar]);
end;
end
|
|
522
|
How can I get the handle of the item where the link ends
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
AddItem(Link['L1',EXGANTTLib_TLB.exLinkEndItem]);
end;
end
|
|
521
|
How can I get the handle of the item where the link starts
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
AddItem(Link['L1',EXGANTTLib_TLB.exLinkStartItem]);
end;
end
|
|
520
|
How can I enumerate the links in the chart
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
AddLink('L2',h2,'K2',h1,'K1');
AddItem(FirstLink);
AddItem(NextLink[FirstLink]);
end;
end
|
|
519
|
How can I access the properties and method of the link between two bars
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/1/2001','1/3/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
Link['L1',EXGANTTLib_TLB.exLinkText] := 'L<b>1</b>';
end;
end
|
|
518
|
How can I remove a link between two bars
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
ClearLinks();
end;
end
|
|
517
|
How can I remove a link between two bars
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
RemoveLink('L1');
end;
end
|
|
516
|
How do I add a link between two bars
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h1 := AddItem('Task 1');
AddBar(h1,'Task','1/2/2001','1/4/2001','K1',Null);
h2 := AddItem('Task 2');
AddBar(h2,'Task','1/5/2001','1/7/2001','K2',Null);
AddLink('L1',h1,'K1',h2,'K2');
end;
end
|
|
515
|
How do I find the number or count of bars in the item
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/1/2001','1/2/2001','K1',Null);
AddBar(h,'Task','1/4/2001','1/6/2001','K2',Null);
ItemBar[h,'K2',EXGANTTLib_TLB.exBarCaption] := ItemBar[h,Null,EXGANTTLib_TLB.exBarsCount];
end;
end
|
|
514
|
How can I assign any extra data to a bar in the chart
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPattern] := 'your data';
end;
end
|
|
513
|
Is there any way to change the background color for percent value being displayed on the progress bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.35);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercentCaptionFormat] := '<bgcolor=FF0000> %p%</bgcolor>';
end;
end
|
|
512
|
Is there any way to change the color for percent value being displayed on the progress bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.35);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercentCaptionFormat] := '<fgcolor=FF0000>%p%</fgcolor>';
end;
end
|
|
511
|
Is there any way to change the font for percent value being displayed on the progress bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.35);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercentCaptionFormat] := '<b><font Tahoma;12>%%p</font></b>';
end;
end
|
|
510
|
Is there any way to align the percent value being displayed on the progress bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.75);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercentCaptionFormat] := '%p/100';
ItemBar[h,'K1',EXGANTTLib_TLB.exBarOffset] := OleVariant(0);
end;
end
|
|
509
|
Is there any way to change the format of the percent being displayed on the progress bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.4);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercentCaptionFormat] := '<b>%p/100</b>';
end;
end
|
|
508
|
How can I show or hide the percent value in the progress bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.4);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarShowPercentCaption] := OleVariant(True);
end;
end
|
|
507
|
How can I change the percent value in a progress bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Add('Task%Progress').Shortcut := 'Percent';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Percent','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.4);
end;
end
|
|
506
|
How can I add a percent bar
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Add('Task%Progress');
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task%Progress','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarPercent] := OleVariant(0.4);
end;
end
|
|
505
|
Can I add a bar in the chart, using your EBN files
with Gantt1 do
begin
VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'','1/2/2001','1/5/2001','K1',' EBN ');
ItemBar[h,'K1',EXGANTTLib_TLB.exBarBackColor] := OleVariant(16777216);
AddBar(h,'Task','1/6/2001','1/8/2001','K2',Null);
end;
end
|
|
504
|
How can I change the background color of the bar in the chart
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
Chart.Bars.Copy('Task','TaskR').Color := $ff;
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'TaskR','1/2/2001','1/6/2001','K1',Null);
end;
end
|
|
503
|
How can I change the background color of the bar in the chart
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarBackColor] := OleVariant(8421504);
end;
end
|
|
502
|
How can I change the background color of the HTML text or caption of the bar in the chart
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2001','1/6/2001','K1',Null);
ItemBar[h,'K1',EXGANTTLib_TLB.exBarCaption] := '<bgcolor=FF0000> to do </bgcolor>';
end;
end
|
|
501
|
How can I change the foreground color of the HTML text or caption of the bar in the chart
with Gantt1 do
begin
Columns.Add('Task');
Chart.FirstVisibleDate := '1/1/2001';
with Items do
begin
h := AddItem('Task 1');
AddBar(h,'Task','1/2/2001','1/6/2001','K1','t<fgcolor=0000FF>o</fgcolor> do');
ItemBar[h,'K1',EXGANTTLib_TLB.exBarForeColor] := OleVariant(16777215);
end;
end
|